home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 394
- Top = 147
- Width = 365
- Height = 249
- Caption = 'Sample Transaction Processor'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ShowHint = True
- WindowState = wsMinimized
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 357
- Height = 217
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object Label2: TLabel
- Left = 9
- Top = 61
- Width = 80
- Height = 16
- Caption = 'Card number:'
- end
- object Label3: TLabel
- Left = 9
- Top = 93
- Width = 70
- Height = 16
- Caption = 'Expiry date:'
- end
- object Label4: TLabel
- Left = 9
- Top = 125
- Width = 48
- Height = 16
- Caption = 'Amount:'
- end
- object Label5: TLabel
- Left = 9
- Top = 157
- Width = 90
- Height = 16
- Caption = 'Transaction ID:'
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 357
- Height = 41
- Align = alTop
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 100
- Height = 16
- Caption = 'Queue Directory:'
- end
- object Edit1: TEdit
- Left = 120
- Top = 5
- Width = 225
- Height = 24
- Hint = 'Directory in which ".trn" transaction files will be placed'
- TabOrder = 0
- OnChange = Edit1Change
- end
- end
- object Edit2: TEdit
- Left = 120
- Top = 56
- Width = 225
- Height = 24
- TabOrder = 1
- end
- object Edit3: TEdit
- Left = 120
- Top = 88
- Width = 225
- Height = 24
- TabOrder = 2
- end
- object Edit4: TEdit
- Left = 120
- Top = 120
- Width = 225
- Height = 24
- TabOrder = 3
- end
- object Edit5: TEdit
- Left = 120
- Top = 152
- Width = 225
- Height = 24
- TabOrder = 4
- end
- object Status: TPanel
- Left = 0
- Top = 200
- Width = 357
- Height = 17
- Align = alBottom
- BevelInner = bvLowered
- TabOrder = 5
- end
- end
- object SimpleFileTransactionProcessor1: TSimpleFileTransactionProcessor
- Left = 16
- Top = 48
- end
- object Timer1: TTimer
- Interval = 5000
- OnTimer = Timer1Timer
- Left = 24
- Top = 80
- end
- end
-